home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vb_clk2 / frm_opts.frm < prev    next >
Text File  |  1995-09-06  |  11KB  |  345 lines
  1. VERSION 2.00
  2. Begin Form FRM_Opts 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Options"
  5.    ClientHeight    =   3360
  6.    ClientLeft      =   1680
  7.    ClientTop       =   2730
  8.    ClientWidth     =   7335
  9.    Height          =   3765
  10.    Left            =   1620
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3360
  16.    ScaleWidth      =   7335
  17.    Top             =   2385
  18.    Width           =   7455
  19.    Begin PictureBox pDisp 
  20.       BorderStyle     =   0  'None
  21.       FontTransparent =   0   'False
  22.       Height          =   315
  23.       Left            =   60
  24.       ScaleHeight     =   315
  25.       ScaleWidth      =   7215
  26.       TabIndex        =   0
  27.       TabStop         =   0   'False
  28.       Top             =   2910
  29.       Width           =   7215
  30.    End
  31.    Begin CheckBox CHK_Float 
  32.       Caption         =   "Float with menu bar"
  33.       Height          =   315
  34.       Left            =   240
  35.       TabIndex        =   7
  36.       Top             =   2430
  37.       Width           =   2175
  38.    End
  39.    Begin TextBox TXT_Message 
  40.       Height          =   600
  41.       Left            =   5400
  42.       MultiLine       =   -1  'True
  43.       TabIndex        =   11
  44.       Top             =   2130
  45.       Width           =   1665
  46.    End
  47.    Begin ComboBox CMB_Size 
  48.       Height          =   300
  49.       Left            =   2610
  50.       TabIndex        =   6
  51.       Text            =   "Combo1"
  52.       Top             =   1980
  53.       Width           =   1215
  54.    End
  55.    Begin ComboBox CMB_Font 
  56.       Height          =   300
  57.       Left            =   240
  58.       Sorted          =   -1  'True
  59.       Style           =   2  'Dropdown List
  60.       TabIndex        =   5
  61.       Top             =   1950
  62.       Width           =   2145
  63.    End
  64.    Begin ComboBox CMB_AMPM 
  65.       Height          =   300
  66.       Left            =   6450
  67.       Style           =   2  'Dropdown List
  68.       TabIndex        =   10
  69.       Top             =   1530
  70.       Width           =   765
  71.    End
  72.    Begin TextBox TXT_Alarm 
  73.       Height          =   300
  74.       Left            =   5430
  75.       TabIndex        =   9
  76.       Top             =   1530
  77.       Width           =   840
  78.    End
  79.    Begin ComboBox CMB_Fore 
  80.       Height          =   300
  81.       Left            =   2610
  82.       Style           =   2  'Dropdown List
  83.       TabIndex        =   4
  84.       Top             =   1410
  85.       Width           =   1965
  86.    End
  87.    Begin ComboBox CMB_Back 
  88.       Height          =   300
  89.       Left            =   240
  90.       Style           =   2  'Dropdown List
  91.       TabIndex        =   3
  92.       Top             =   1410
  93.       Width           =   1965
  94.    End
  95.    Begin CheckBox CHK_Alarm 
  96.       Caption         =   "Alarm"
  97.       Height          =   225
  98.       Left            =   5400
  99.       TabIndex        =   8
  100.       Top             =   1230
  101.       Width           =   1215
  102.    End
  103.    Begin CommandButton BUT_Exit 
  104.       Caption         =   "Exit program"
  105.       Height          =   375
  106.       Left            =   5940
  107.       TabIndex        =   2
  108.       Top             =   585
  109.       Width           =   1245
  110.    End
  111.    Begin CommandButton BUT_OK 
  112.       Caption         =   "OK"
  113.       Default         =   -1  'True
  114.       Height          =   375
  115.       Left            =   5940
  116.       TabIndex        =   1
  117.       Top             =   135
  118.       Width           =   1245
  119.    End
  120. End
  121. Dim Colour$(0 To 20)
  122. Dim Col(0 To 20) As Long
  123. Dim pStep As Integer
  124. Dim cY As Integer
  125. Dim Ind As Integer
  126.  
  127. Sub BUT_Exit_Click ()
  128.     Unload FRM_Clock
  129.     Unload FRM_Disp
  130.     End
  131. End Sub
  132.  
  133. Sub BUT_OK_Click ()
  134.     BColour = Col(CMB_Back.ListIndex)
  135.     FColour = Col(CMB_Fore.ListIndex)
  136.     DispFont = CMB_Font.List(CMB_Font.ListIndex)
  137.     DispFontSize = Val(CMB_Size.Text)
  138.     If DispFontSize < 3 Then DispFontSize = 3
  139.     
  140.     If CHK_Alarm.Value = 1 Then IsAlarm = True
  141.     If (TXT_Alarm.Text = "") Or (Val(TXT_Alarm.Text) = 0) Then IsAlarm = False
  142.     If IsAlarm Then
  143.         AlarmTime = Int(Now) + TimeValue(TXT_Alarm.Text + CMB_AMPM.List(CMB_AMPM.ListIndex))
  144.         AlarmMessage = TXT_Message.Text
  145.     Else
  146.         FRM_Opts.CHK_Alarm.Value = 0
  147.     End If
  148.  
  149.     FRM_Opts.Hide
  150. End Sub
  151.  
  152. Sub CHK_Alarm_Click ()
  153.     IsAlarm = CHK_Alarm.Value
  154. End Sub
  155.  
  156. Sub CHK_Float_Click ()
  157.     IsFloat = CHK_Float.Value
  158. End Sub
  159.  
  160. Sub Form_Load ()
  161.     Screen.MousePointer = HOURGLASS
  162.     Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 3
  163.     FRM_Opts.Picture = FRM_Clock.Icon
  164.     pDisp.Backcolor = BUTTON_FACE
  165.     pDisp.Forecolor = BUTTON_TEXT
  166.  
  167.     ' setup colour combo boxes
  168.     Colour$(0) = "Black": Colour$(1) = "Blue": Colour$(2) = "Green"
  169.     Colour$(3) = "Cyan": Colour$(4) = "Red": Colour$(5) = "Magenta"
  170.     Colour$(6) = "Yellow": Colour$(7) = "White": Colour$(8) = "Gray"
  171.     Colour$(9) = "Light Blue": Colour$(10) = "Light Green": Colour$(11) = "Light Cyan"
  172.     Colour$(12) = "Light Red": Colour$(13) = "Light Magenta": Colour$(14) = "Light Yellow"
  173.     Colour$(15) = "Bright White"
  174.     Colour$(16) = "Desktop": Colour$(17) = "Active title bar"
  175.     Colour$(18) = "Inactive title bar": Colour$(19) = "Menu bar"
  176.     Colour$(20) = "Menu bar text"
  177.     
  178.     For x% = 0 To 15
  179.         Col(x%) = QBColor(x%)
  180.     Next
  181.     Col(16) = DESKTOP
  182.     Col(17) = ACTIVE_TITLE_BAR
  183.     Col(18) = INACTIVE_TITLE_Bar
  184.     Col(19) = MENU_BAR
  185.     Col(20) = MENU_BAR_TEXT
  186.     Do While CMB_Back.ListCount > 0
  187.         CMB_Back.RemoveItem 0
  188.         CMB_Fore.RemoveItem 0
  189.     Loop
  190.     For x% = 0 To 20
  191.         CMB_Back.AddItem Colour$(x%)
  192.         CMB_Fore.AddItem Colour$(x%)
  193.     Next x%
  194.     CMB_Back.ListIndex = 16
  195.     CMB_Fore.ListIndex = 17
  196.     For x% = 20 To 0 Step -1
  197.         If BColour = Col(x%) Then CMB_Back.ListIndex = x%
  198.         If FColour = Col(x%) Then CMB_Fore.ListIndex = x%
  199.     Next x%
  200.  
  201.     ' setup AM/PM combo box
  202.     Do While CMB_AMPM.ListCount > 0
  203.         CMB_AMPM.RemoveItem 0
  204.     Loop
  205.     CMB_AMPM.AddItem "AM"
  206.     CMB_AMPM.AddItem "PM"
  207.     CMB_AMPM.ListIndex = Abs(Time$ > "12:00:00")
  208.  
  209.     ' setup font size box
  210.     Do While CMB_Size.ListCount > 0
  211.         CMB_Size.RemoveItem 0
  212.     Loop
  213.     CMB_Size.AddItem "6"
  214.     CMB_Size.AddItem "7"
  215.     CMB_Size.AddItem "8.25"
  216.     CMB_Size.AddItem "9.75"
  217.     CMB_Size.AddItem "12"
  218.     CMB_Size.AddItem "13.5"
  219.     CMB_Size.AddItem "18"
  220.     CMB_Size.AddItem "24"
  221.     For x% = 0 To Screen.Fontcount - 1
  222.         If CMB_Size.List(x%) = Format$(DispFontSize) Then CMB_Size.ListIndex = x%
  223.     Next x%
  224.     If CMB_Size.ListIndex = -1 Then CMB_Size.Text = Format$(DispFontSize)
  225.  
  226.     ' setup font name combo box
  227.     Do While CMB_Font.ListCount > 0
  228.         CMB_Font.RemoveItem 0
  229.     Loop
  230.     For x% = 0 To Screen.Fontcount - 1
  231.         CMB_Font.AddItem Screen.Fonts(x%)
  232.     Next x%
  233.     CMB_Font.ListIndex = 1
  234.     For x% = 0 To Screen.Fontcount - 1
  235.         If CMB_Font.List(x%) = DispFont Then CMB_Font.ListIndex = x%
  236.     Next x%
  237.     
  238.     If IsAlarm Then
  239.         at$ = Format$(AlarmTime, "h:mm AM/PM")
  240.         TXT_Alarm.Text = Left$(at$, Len(at$) - 3)
  241.         TXT_Message.Text = AlarmMessage
  242.         CHK_Alarm.Value = 1
  243.         CMB_AMPM.ListIndex = Abs(Format$(AlarmTime, "h:mm") > "12:00")
  244.     End If
  245.     If IsFloat Then CHK_Float.Value = 1
  246.  
  247.     pStep = Int(pDisp.ScaleWidth / MaxItems) - 1
  248.     pDisp.Fillcolor = pDisp.Backcolor
  249.     pDisp.FillStyle = 0
  250.     pDisp.FontSize = 7
  251.     pDisp.FontBold = False
  252.     cY = pDisp.ScaleHeight / 2 - pDisp.TextHeight("A") / 2
  253.  
  254.     Screen.MousePointer = DEFAULT
  255. End Sub
  256.  
  257. Sub Form_Paint ()
  258.     fs = FontSize
  259.     fb% = FontBold
  260.     fi% = FontItalic
  261.     FontBold = True
  262.     PrintLabel "Background", CMB_Back
  263.     PrintLabel "Text", CMB_Fore
  264.     PrintLabel "Message", TXT_Message
  265.  
  266.     FontSize = 9.75
  267.     FontBold = True
  268.     FontItalic = True
  269.     CurrentX = 750
  270.     CurrentY = 5
  271.     Print "VBClock 2.1"
  272.     FontSize = 8.25
  273.     FontBold = False
  274.     FontItalic = False
  275.     CurrentX = 800
  276.     Print "Visual Basic clock and system resources utility."
  277.     Print
  278.     CurrentX